median_qi(.width = c(.8, .95)) %>%
ggplot(aes(y = i, x = u_tau, xmin = .lower, xmax = .upper)) +
geom_pointinterval()
RankCorr_u_tau %>%
group_by(i)
ggplot(plot.data, aes(x=estimate, xmin=ci_low, xmax=ci_high))+ggdist::geom_pointinterval(
position = "dodge",
interval_size_range = c(1, 2),
fatten_point = 1.1, show.legend=c(size = T))
plot.data <- data.frame(estimate=c(result.use.hdi$est.avg[1],result.use90.hdi$est.avg[1]),
ci_low=c(result.use.hdi$est.avg[2],result.use90.hdi$est.avg[2]),
ci_high=c(result.use.hdi$est.avg[3],result.use90.hdi$est.avg[3]),
term = 'DMLFM')
ggplot(plot.data, aes(y=term, x=estimate, xmin=ci_low, xmax=ci_high))+ggdist::geom_pointinterval(
position = "dodge",
interval_size_range = c(1, 2),
fatten_point = 1.1, show.legend=c(size = T))
plot.data[1]
ggplot(plot.data[,1], aes(y=term, x=estimate, xmin=ci_low, xmax=ci_high))+ggdist::geom_pointinterval(
position = "dodge",
interval_size_range = c(1, 2),
fatten_point = 1.1, show.legend=c(size = T))
plot.data[,1]
plot.data[1,]
ggplot(plot.data[1,], aes(y=term, x=estimate, xmin=ci_low, xmax=ci_high))+ggdist::geom_pointinterval(
position = "dodge",
interval_size_range = c(1, 2),
fatten_point = 1.1, show.legend=c(size = T))
ggplot(plot.data[2,], aes(y=term, x=estimate, xmin=ci_low, xmax=ci_high))+ggdist::geom_pointinterval(
position = "dodge",
interval_size_range = c(1, 2),
fatten_point = 1.1, show.legend=c(size = T))
ggplot(plot.data[-1:2,], aes(y=term, x=estimate, xmin=ci_low, xmax=ci_high))+ggdist::geom_pointinterval(
position = "dodge",
interval_size_range = c(1, 2),
fatten_point = 1.1, show.legend=c(size = T))
plot.data[-1:2,]
ggplot(plot.data[-1:-2,], aes(y=term, x=estimate, xmin=ci_low, xmax=ci_high))+ggdist::geom_pointinterval(
position = "dodge",
interval_size_range = c(1, 2),
fatten_point = 1.1, show.legend=c(size = T))
plot.data[-1:-2,]
plot.data[-,]
plot.data[-1,]
ggplot(plot.data[-1,], aes(y=term, x=estimate, xmin=ci_low, xmax=ci_high))+ggdist::geom_pointinterval(
position = "dodge",
interval_size_range = c(1, 2),
fatten_point = 1.1, show.legend=c(size = T))
plot.data[c(2,1),]
ggplot(plot.data[c(2,1),], aes(y=term, x=estimate, xmin=ci_low, xmax=ci_high))+ggdist::geom_pointinterval(
position = "dodge",
interval_size_range = c(1, 2),
fatten_point = 1.1, show.legend=c(size = T))
ggplot(plot.data, aes(y=term, x=estimate, xmin=ci_low, xmax=ci_high))+ggdist::geom_pointinterval()
ggplot(plot.data, aes(y=term, x=estimate, xmin=ci_low, xmax=ci_high))+ggdist::geom_pointinterval(show.legend=c(size = T))
install.packages('tidybayes')
library(tidybayes)
RankCorr_u_tau %>%
group_by(i) %>%
median_qi(.width = c(.8, .95))
RankCorr_u_tau %>%
group_by(i) %>%
median_qi(.width = c(.8, .95)) %>%
ggplot(aes(y = i, x = u_tau, xmin = .lower, xmax = .upper)) +
geom_pointinterval()
ggplot(plot.data, aes(y=term, x=estimate, xmin=ci_low, xmax=ci_high))+ggdist::geom_pointinterval(show.legend=c(size = T))
ggplot(plot.data, aes(y=term, x=estimate, xmin=ci_low, xmax=ci_high))+ggdist::geom_pointinterval(show.legend=c(size = T))
RankCorr_u_tau %>%
group_by(i) %>%
median_qi(.width = c(.8, .95)) %>%
ggplot(aes(y = i, x = u_tau, xmin = .lower, xmax = .upper)) +
geom_pointinterval()
a <- RankCorr_u_tau %>%
group_by(i) %>%
median_qi(.width = c(.8, .95))
View(a)
a[c(1,4),]
a <- a[c(1,4),]
a %>%
ggplot(aes(y = i, x = u_tau, xmin = .lower, xmax = .upper)) +
geom_pointinterval()
subset(a, select=-c(.point,.interval))
a <- subset(a, select=-c(.point,.interval))
a %>%
ggplot(aes(y = i, x = u_tau, xmin = .lower, xmax = .upper)) +
geom_pointinterval()
b <- subset(a, select=-c(.width))
ggplot(b, aes(y = i, x = u_tau, xmin = .lower, xmax = .upper)) +
geom_pointinterval()
plot.data <- data.frame(estimate=c(result.use.hdi$est.avg[1],result.use90.hdi$est.avg[1]),
ci_low=c(result.use.hdi$est.avg[2],result.use90.hdi$est.avg[2]),
ci_high=c(result.use.hdi$est.avg[3],result.use90.hdi$est.avg[3]),
with = c(.80,.95))
ggplot(plot.data, aes(x=estimate, xmin=ci_low, xmax=ci_high))+ggdist::geom_pointinterval(show.legend=c(size = T))
plot.data <- data.frame(estimate=c(result.use.hdi$est.avg[1],result.use90.hdi$est.avg[1]),
ci_low=c(result.use.hdi$est.avg[2],result.use90.hdi$est.avg[2]),
ci_high=c(result.use.hdi$est.avg[3],result.use90.hdi$est.avg[3]),
.width = c(.80,.95))
ggplot(plot.data, aes(x=estimate, xmin=ci_low, xmax=ci_high))+ggdist::geom_pointinterval(show.legend=c(size = T))
ggplot(b, aes(y = i, x = u_tau, xmin = .lower, xmax = .upper)) +
geom_pointinterval()
a %>%
ggplot(aes(y = i, x = u_tau, xmin = .lower, xmax = .upper)) +
geom_pointinterval()
plot.data <- data.frame(estimate=c(result.use.hdi$est.avg[1],result.use90.hdi$est.avg[1]),
ci_low=c(result.use.hdi$est.avg[2],result.use90.hdi$est.avg[2]),
ci_high=c(result.use.hdi$est.avg[3],result.use90.hdi$est.avg[3]),
.width = c(.96,.80))
ggplot(plot.data, aes(x=estimate, xmin=ci_low, xmax=ci_high))+ggdist::geom_pointinterval(show.legend=c(size = T))
ggplot(plot.data, aes(x=estimate, xmin=ci_low, xmax=ci_high))+ggdist::geom_pointinterval(show.legend=c(size = T))
plot.data <- data.frame(estimate=c(result.use.hdi$est.avg[1],result.use90.hdi$est.avg[1]),
ci_low=c(result.use.hdi$est.avg[2],result.use90.hdi$est.avg[2]),
ci_high=c(result.use.hdi$est.avg[3],result.use90.hdi$est.avg[3]),
.width = c(.95,.80))
ggplot(plot.data, aes(x=estimate, xmin=ci_low, xmax=ci_high))+ggdist::geom_pointinterval()
ggplot(plot.data, aes(x=estimate, xmin=ci_low, xmax=ci_high))+ggdist::geom_pointinterval()+
theme_minimal()
ggplot(plot.data, aes(x=estimate, xmin=ci_low, xmax=ci_high))+
ggdist::geom_pointinterval(show.legend=c(size = T))+
theme_minimal()
ggplot(plot.data, aes(x=estimate, xmin=ci_low, xmax=ci_high))+
ggdist::geom_pointinterval(show.legend=c(size = NA))+
theme_minimal()
ggplot(plot.data, aes(x=estimate, xmin=ci_low, xmax=ci_high))+
ggdist::geom_pointinterval(show.legend=c(size = NA))+
theme_minimal()+scale_size_manual(values = c(.95,.80))
ggplot(plot.data, aes(x=estimate, xmin=ci_low, xmax=ci_high))+
ggdist::geom_pointinterval(show.legend=c(size = NA))+
theme_minimal()+scale_size_manual(values = .width,,
breaks= c(.80, .95),
labels=c(a,b))
ggplot(plot.data, aes(x=estimate, xmin=ci_low, xmax=ci_high))+
ggdist::geom_pointinterval(show.legend=c(size = NA))+
theme_minimal()+scale_size_manual(values = plot.data$.width,
breaks= c(.80, .95),
labels=c(a,b))
ggplot(plot.data, aes(x=estimate, xmin=ci_low, xmax=ci_high))+
ggdist::geom_pointinterval(show.legend=c(size = NA))+
theme_minimal()+scale_size_manual(values = .width,
breaks= c(.80, .95),
labels=c(a,b))
ggplot(plot.data, aes(x=estimate, xmin=ci_low, xmax=ci_high))+
ggdist::geom_pointinterval(show.legend=c(size = NA))+
theme_minimal()+scale_size_manual(values = .width,
breaks= c(.80, .95),
labels=c(a,b))
ggplot(plot.data, aes(x=estimate, xmin=ci_low, xmax=ci_high))+
ggdist::geom_pointinterval(show.legend=c(size = NA))+
theme_minimal()+scale_size_manual(breaks= c(.80, .95),
labels=c(a,b))
ggplot(plot.data, aes(x=estimate, xmin=ci_low, xmax=ci_high))+
ggdist::geom_pointinterval(show.legend=c(size = NA))+
theme_minimal()+scale_size_manual()
ggplot(plot.data, aes(x=estimate, xmin=ci_low, xmax=ci_high))+
ggdist::geom_pointinterval(show.legend=c(size = NA))+
theme_minimal()+scale_size(name=c(a,b,c))
ggplot(plot.data, aes(x=estimate, xmin=ci_low, xmax=ci_high))+
ggdist::geom_pointinterval(show.legend=c(size = NA))+
theme_minimal()+scale_size(name='Credible Intervals')
ggplot(plot.data, aes(x=estimate, xmin=ci_low, xmax=ci_high))+
ggdist::geom_pointinterval(show.legend=c(size = NA))+
theme_minimal()+scale_size(name='Credible Intervals',
breaks=c(0.80,0.95))
ggplot(plot.data, aes(x=estimate, xmin=ci_low, xmax=ci_high))+
ggdist::geom_pointinterval(show.legend=c(size = NA))+
theme_minimal()+scale_size(name='Credible Intervals',
breaks=c(0.80,0.90))
ggplot(plot.data, aes(x=estimate, xmin=ci_low, xmax=ci_high))+
ggdist::geom_pointinterval(show.legend=c(size = NA))+
theme_minimal()+scale_size(name='Credible Intervals')
ggplot(plot.data, aes(x=estimate, xmin=ci_low, xmax=ci_high))+
ggdist::geom_pointinterval(show.legend=c(size = NA))+
theme_minimal()+scale_size(name='Credible Intervals',
labels=c('a','b','c'))
ggplot(plot.data, aes(x=estimate, xmin=ci_low, xmax=ci_high))+
ggdist::geom_pointinterval(show.legend=c(size = NA))+
theme_minimal()+scale_size(name='Credible Intervals',
breaks=c(0.80,0.95),
labels=c('a','b'))
ggplot(plot.data, aes(x=estimate, xmin=ci_low, xmax=ci_high))+
ggdist::geom_pointinterval(show.legend=c(size = NA))+
theme_minimal()+scale_size(name='Credible Intervals',
breaks=c(0.80,0.95),
labels=c('a','b'))
ggplot(plot.data, aes(x=estimate, xmin=ci_low, xmax=ci_high))+
ggdist::geom_pointinterval(show.legend=c(size = NA))+
theme_minimal()+scale_size(name='Credible Intervals',
range=c(0.80,0.95))
ggplot(plot.data, aes(x=estimate, xmin=ci_low, xmax=ci_high))+
ggdist::geom_pointinterval(interverl_size_domain=c(0.80,0.95),show.legend=c(size = NA))
ggplot(plot.data, aes(x=estimate, xmin=ci_low, xmax=ci_high))+
ggdist::geom_pointinterval(interverl_size_range=c(0.80,0.95),show.legend=c(size = NA))
ggplot(plot.data, aes(x=estimate, xmin=ci_low, xmax=ci_high))+
ggdist::geom_pointinterval(show.legend=c(size = NA))+
theme_minimal()+scale_interval_size_continuous(range = c(0.80, 0.95))
ggplot(plot.data, aes(x=estimate, xmin=ci_low, xmax=ci_high))+
ggdist::geom_pointinterval(interverl_size_range=c(0.80,0.95),show.legend=c(size = NA))+
theme_minimal()+scale_size(name='Credible Intervals',
range=c(0.80,0.95))
plot.data <- data.frame(estimate=c(result.use.hdi$est.avg[1],result.use90.hdi$est.avg[1]),
ci_low=c(result.use.hdi$est.avg[2],result.use90.hdi$est.avg[2]),
ci_high=c(result.use.hdi$est.avg[3],result.use90.hdi$est.avg[3]),
.width = c(.95,.90))
ggplot(plot.data, aes(x=estimate, xmin=ci_low, xmax=ci_high))+
ggdist::geom_pointinterval(interverl_size_range=c(0.80,0.95),show.legend=c(size = NA))+
theme_minimal()
ggplot(plot.data, aes(x=estimate, xmin=ci_low, xmax=ci_high))+
ggdist::geom_pointinterval(interverl_size_range=c(0.80,0.95),show.legend=c(size = NA))+
theme_minimal()+scale_size(name='Credible Intervals',
range=c(0.80,0.95))
ggplot(plot.data, aes(x=estimate, xmin=ci_low, xmax=ci_high))+
ggdist::geom_pointinterval(show.legend=c(size = NA))+
theme_minimal()+scale_size(name='Credible Intervals',
range=c(0.80,0.95))
ggplot(plot.data, aes(x=estimate, xmin=ci_low, xmax=ci_high))+
ggdist::geom_pointinterval(show.legend=c(size = NA))+
theme_minimal()
ggplot(plot.data, aes(x=estimate, xmin=ci_low, xmax=ci_high))+
ggdist::geom_pointinterval(show.legend=c(size = NA))+
theme_minimal()+scale_size(name='Credible Intervals',
range=c(0.80,0.95))
ggplot(plot.data, aes(x=estimate, xmin=ci_low, xmax=ci_high))+
ggdist::geom_pointinterval(show.legend=c(size = NA))+
theme_minimal()+scale_size(name='Credible Intervals',
range=c(0.90,0.95))
ggplot(plot.data, aes(x=estimate, xmin=ci_low, xmax=ci_high))+
ggdist::geom_pointinterval(show.legend=c(size = NA))+
theme_minimal()
ggplot(plot.data, aes(x=estimate, xmin=ci_low, xmax=ci_high))+
ggdist::geom_pointinterval(show.legend=c(size = NA))+
theme_minimal()+scale_size(name='Credible Intervals')
plot.data <- data.frame(estimate=c(result.use.hdi$est.avg[1],result.use90.hdi$est.avg[1]),
ci_low=c(result.use.hdi$est.avg[2],result.use90.hdi$est.avg[2]),
ci_high=c(result.use.hdi$est.avg[3],result.use90.hdi$est.avg[3]),
level = c(.95,.90))
ggplot(plot.data, aes(x=estimate, xmin=ci_low, xmax=ci_high))+
ggdist::geom_pointinterval(show.legend=c(size = NA))
ggplot(plot.data, aes(x=estimate, xmin=ci_low, xmax=ci_high, size=level))+
ggdist::geom_pointinterval(show.legend=c(size = NA))
ggplot(plot.data, aes(x=estimate, xmin=ci_low, xmax=ci_high, size=level))+
ggdist::geom_pointinterval(interval.range=c(.80,.95),show.legend=c(size = NA))+
theme_minimal()
plot.data <- data.frame(estimate=c(result.use.hdi$est.avg[1],result.use90.hdi$est.avg[1]),
ci_low=c(result.use.hdi$est.avg[2],result.use90.hdi$est.avg[2]),
ci_high=c(result.use.hdi$est.avg[3],result.use90.hdi$est.avg[3]),
level = c(.95,.90))
ggplot(plot.data, aes(x=estimate, xmin=ci_low, xmax=ci_high, size=level))+
ggdist::geom_pointinterval(interval.range=c(.80,.95),show.legend=c(size = NA))+
theme_minimal()
ggplot(plot.data, aes(x=estimate, xmin=ci_low, xmax=ci_high, size=level))+
geom_pointrange()
ggplot(plot.data, aes(x=estimate, xmin=ci_low, xmax=ci_high))+
geom_pointrange()
ggplot(plot.data, aes(y=estimate, ymin=ci_low, ymax=ci_high))+
geom_pointrange()
ggplot(plot.data, aes(x=estimate, xmin=ci_low, xmax=ci_high, y=0))+
geom_pointrange()
ggplot(plot.data, aes(x=estimate, xmin=ci_low, xmax=ci_high, size=level, y=0))+
geom_pointrange()
ggplot(plot.data, aes(x=estimate, xmin=ci_low, xmax=ci_high, size=level, y=0))+
ggdist::geom_pointinterval(interval.range=c(.80,.95),show.legend=c(size = NA))+
theme_minimal()+scale_size(name='Credible Intervals')
plot.data <- data.frame(estimate=c(result.use.hdi$est.avg[1],result.use90.hdi$est.avg[1]),
ci_low=c(result.use.hdi$est.avg[2],result.use90.hdi$est.avg[2]),
ci_high=c(result.use.hdi$est.avg[3],result.use90.hdi$est.avg[3]),
.width = c(.95,.90))
ggplot(plot.data, aes(x=estimate, xmin=ci_low, xmax=ci_high, size=level, y=0))+
ggdist::geom_pointinterval(interval.range=c(.80,.95),show.legend=c(size = NA))+
theme_minimal()+scale_size(name='Credible Intervals')
plot.data <- data.frame(estimate=c(result.use.hdi$est.avg[1],result.use90.hdi$est.avg[1]),
ci_low=c(result.use.hdi$est.avg[2],result.use90.hdi$est.avg[2]),
ci_high=c(result.use.hdi$est.avg[3],result.use90.hdi$est.avg[3]),
.width = c(.95,.90))
ggplot(plot.data, aes(x=estimate, xmin=ci_low, xmax=ci_high, y=0))+
ggdist::geom_pointinterval(interval.range=c(.80,.95),show.legend=c(size = NA))+
theme_minimal()+scale_size(name='Credible Intervals')
ggplot(plot.data, aes(x=estimate, xmin=ci_low, xmax=ci_high, y=0))+
ggdist::geom_pointinterval(interval.range=c(.80,.95),show.legend=c(size = NA))+
theme_minimal()+scale_size(name='Credible Intervals',
breaks = c(0.90, 0.94))
ggplot(plot.data, aes(x=estimate, xmin=ci_low, xmax=ci_high, y=0))+
ggdist::geom_pointinterval(interval.range=c(.80,.95),show.legend=c(size = NA))+
theme_minimal()+scale_size(name='Credible Intervals',
breaks = 2)
ggplot(plot.data, aes(x=estimate, xmin=ci_low, xmax=ci_high, y=0))+
ggdist::geom_pointinterval(interval.range=c(.80,.95),show.legend=c(size = NA))+
theme_minimal()+scale_size(name='Credible Intervals',
breaks = c(0.92,0.94))
ggplot(plot.data, aes(x=estimate, xmin=ci_low, xmax=ci_high, y=0))+
ggdist::geom_pointinterval(interval.range=c(.80,.95),show.legend=c(size = NA))+
theme_minimal()+scale_size(name='Credible Intervals',
breaks = c(0.92,0.94),
lables=c('a','b'))
ggplot(plot.data, aes(x=estimate, xmin=ci_low, xmax=ci_high, y=0))+
ggdist::geom_pointinterval(interval.range=c(.80,.95),show.legend=c(size = NA))+
theme_minimal()+scale_size(name='Credible Intervals',
breaks = c(0.92,0.94),
labels=c('a','b'))
ggplot(plot.data, aes(x=estimate, xmin=ci_low, xmax=ci_high, y=0))+
ggdist::geom_pointinterval(interval.range=c(.80,.95),show.legend=c(size = NA))+
theme_minimal()+scale_size(name='Credible Intervals',
breaks = c(0.92,0.94),
labels=c('a','b'))
ggplot(plot.data, aes(x=estimate, xmin=ci_low, xmax=ci_high, y=0))+
ggdist::geom_pointinterval(interval.range=c(.80,.95),show.legend=c(size = NA))+
theme_minimal()+scale_size_binned(name='Credible Intervals',
breaks = c(0.92,0.94),
labels=c('a','b'))
ggplot(plot.data, aes(x=estimate, xmin=ci_low, xmax=ci_high, y=0))+
ggdist::geom_pointinterval(interval.range=c(.80,.95),show.legend=c(size = NA))+
theme_minimal()+scale_size_binned(name='Credible Intervals',
breaks = c(0.92,0.94),
labels=c('a','b'))
ggplot(plot.data, aes(x=estimate, xmin=ci_low, xmax=ci_high, y=0))+
ggdist::geom_pointinterval(interval.range=c(.80,.95),show.legend=c(size = NA))+
theme_minimal()+scale_size_manual(name='Credible Intervals',
breaks = c(0.92,0.94),
labels=c('a','b'))
ggplot(plot.data, aes(x=estimate, xmin=ci_low, xmax=ci_high, y=0))+
ggdist::geom_pointinterval(interval.range=c(.80,.95),show.legend=c(size = NA))+
theme_minimal()
ggplot(plot.data, aes(x=estimate, xmin=ci_low, xmax=ci_high, y=0))+
ggdist::geom_pointinterval()+
theme_minimal()
ggplot(plot.data, aes(x=estimate, xmin=ci_low, xmax=ci_high))+
ggdist::geom_pointinterval()+
theme_minimal()
ggplot(plot.data, aes(x=estimate, xmin=ci_low, xmax=ci_high))+
ggdist::geom_pointinterval()+
theme_minimal()+scale_size_manual(name'CIs')
ggplot(plot.data, aes(x=estimate, xmin=ci_low, xmax=ci_high))+
ggdist::geom_pointinterval()+
theme_minimal()+scale_size_manual(name='CIs')
ggplot(plot.data, aes(x=estimate, xmin=ci_low, xmax=ci_high))+
ggdist::geom_pointinterval()+
theme_minimal()+scale_size(name='CIs')
ggplot(plot.data, aes(x=estimate, xmin=ci_low, xmax=ci_high))+
ggdist::geom_pointinterval()+
theme_minimal()+scale_size(name='CIs', breaks=c(0.90,0.94))
ggplot(plot.data, aes(x=estimate, xmin=ci_low, xmax=ci_high, y=0))+
geom_point()
ggplot(plot.data, aes(x=estimate, xmin=ci_low, xmax=ci_high, y=0))+
geom_point(size=2)
ggplot(plot.data, aes(x=estimate, xmin=ci_low, xmax=ci_high, y=0))+
geom_point(size=2, shape=2)
ggplot(plot.data, aes(x=estimate, xmin=ci_low, xmax=ci_high, y=0))+
geom_point(size=2, shape=15)
ggplot(plot.data, aes(x=estimate, xmin=ci_low, xmax=ci_high, y=0))+
geom_point(size=2, shape=15)+geom_pointrange(aes(size=.width))
ggplot(plot.data, aes(x=estimate, xmin=ci_low, xmax=ci_high, y=0))+
geom_point(size=2, shape=15)+geom_linerange(aes(size=.width))
ggplot(plot.data, aes(x=estimate, xmin=ci_low, xmax=ci_high, y=0))+
geom_point(size=2, shape=15)+geom_linerange(aes(size=factor(.width)))
plot.data <- data.frame(estimate=c(result.use.hdi$est.avg[1],result.use90.hdi$est.avg[1]),
ci_low=c(result.use.hdi$est.avg[2],result.use90.hdi$est.avg[2]),
ci_high=c(result.use.hdi$est.avg[3],result.use90.hdi$est.avg[3]),
levels = c(.95,.90))
factor(c(.95,.90))
plot.data <- data.frame(estimate=c(result.use.hdi$est.avg[1],result.use90.hdi$est.avg[1]),
ci_low=c(result.use.hdi$est.avg[2],result.use90.hdi$est.avg[2]),
ci_high=c(result.use.hdi$est.avg[3],result.use90.hdi$est.avg[3]),
levels = factor(c(.95,.90)) )
ggplot(plot.data, aes(x=estimate, xmin=ci_low, xmax=ci_high, y=0))+
geom_point(size=2, shape=15)+geom_linerange(aes(size=levels))
ggplot(plot.data, aes(x=estimate, xmin=ci_low, xmax=ci_high, y=0))+
geom_point(size=2, shape=15)+geom_linerange(aes(size=levels))+
scale_size_manual(name='CIs', values=c(.6,.9), breaks=c(.95,0.90))
ggplot(plot.data, aes(x=estimate, xmin=ci_low, xmax=ci_high, y=0))+
geom_point(size=2, shape=15)+geom_linerange(aes(size=levels))+
scale_size_manual(name='CIs', values=c(.8,.9), breaks=c(.95,0.90))
ggplot(plot.data, aes(x=estimate, xmin=ci_low, xmax=ci_high, y=0))+
geom_point(size=2, shape=15)+geom_linerange(aes(size=levels))+
scale_size_manual(name='CIs', values=c(.6,.9), breaks=c(.95,0.90))
ggplot(plot.data, aes(x=estimate, xmin=ci_low, xmax=ci_high, y=0))+
geom_point(size=2, shape=15)+geom_linerange(aes(size=levels))+
scale_size_manual(name='CIs', values=c(1,6), breaks=c(.95,0.90))
ggplot(plot.data, aes(x=estimate, xmin=ci_low, xmax=ci_high, y=0))+
geom_point(size=2, shape=15)+geom_linerange(aes(size=levels))+
scale_size_manual(name='CIs', values=c(1,3), breaks=c(.95,0.90))
ggplot(plot.data, aes(x=estimate, xmin=ci_low, xmax=ci_high, y=0))+
geom_point(size=2, shape=15)+geom_linerange(aes(size=levels))+
scale_size_manual(name='CIs', values=c(0.5,2), breaks=c(.95,0.90))
ggplot(plot.data, aes(x=estimate, xmin=ci_low, xmax=ci_high, y=0))+
geom_point(size=2, shape=15)+geom_linerange(aes(size=levels))+
scale_size_manual(name='CIs', values=c(0.5,1.5), breaks=c(.95,0.90))
ggplot(plot.data, aes(x=estimate, xmin=ci_low, xmax=ci_high, y=0))+
geom_point(size=2, shape=15)+geom_linerange(aes(size=levels))+
scale_size_manual(name='CIs', values=c(1,1.5), breaks=c(.95,0.90))
ggplot(plot.data, aes(x=estimate, xmin=ci_low, xmax=ci_high, y=0))+
geom_point(size=2, shape=15)+geom_linerange(aes(size=levels))+
scale_size_manual(name='CIs', values=c(0.7,1.5), breaks=c(.95,0.90))
ggplot(plot.data, aes(x=estimate, xmin=ci_low, xmax=ci_high, y=0))+
geom_point(size=2, shape=15)+geom_linerange(aes(size=levels))+
scale_size_manual(name='Credible Intervals',
values=c(0.7,1.5),
breaks=c(.95,0.90),
labels=c('95%','90%'))
ggplot(plot.data, aes(x=estimate, xmin=ci_low, xmax=ci_high, y=0))+theme_minimal()
geom_point(size=2, shape=15)+geom_linerange(aes(size=levels))+
scale_size_manual(name='Credible Intervals',
values=c(0.7,1.5),
breaks=c(.95,0.90),
labels=c('95%','90%'))
ggplot(plot.data, aes(x=estimate, xmin=ci_low, xmax=ci_high, y=0))+theme_minimal()
geom_point(size=2, shape=15)+geom_linerange(aes(size=levels))+
scale_size_manual(name='Credible Intervals',
values=c(0.7,1.5),
breaks=c(.95,0.90),
labels=c('95%','90%'))
ggplot(plot.data, aes(x=estimate, xmin=ci_low, xmax=ci_high, y=0))+theme_minimal()+
geom_point(size=2, shape=15)+geom_linerange(aes(size=levels))+
scale_size_manual(name='Credible Intervals',
values=c(0.7,1.5),
breaks=c(.95,0.90),
labels=c('95%','90%'))
ggplot(plot.data, aes(x=estimate, xmin=ci_low, xmax=ci_high, y=0))+theme_minimal()+
geom_point(size=2, shape=15)+geom_linerange(aes(size=levels))+
scale_size_manual(name='Highest Density Intervals (HDI)',
values=c(0.7,1.5),
breaks=c(.95,0.90),
labels=c('95%','90%'))
ggplot(plot.data, aes(x=estimate, xmin=ci_low, xmax=ci_high, y=0))+theme_minimal()+
geom_point(size=2, shape=15)+geom_linerange(aes(size=levels))+
geom_vline(xintercept = sd(data$logimport[data$Unit==1])*(-0.1))+
scale_size_manual(name='Highest Density Intervals (HDI)',
values=c(0.7,1.5),
breaks=c(.95,0.90),
labels=c('95%','90%'))
ggplot(plot.data, aes(x=estimate, xmin=ci_low, xmax=ci_high, y=0))+theme_minimal()+
geom_point(size=2, shape=15)+geom_linerange(aes(size=levels))+
geom_vline(xintercept = sd(data$logimport[data$Unit==1])*(-0.1), linetype = "dashed", color = "grey")+
geom_vline(xintercept = sd(data$logimport[data$Unit==1])*0.1, linetype = "dashed", color = "grey")+
scale_size_manual(name='Highest Density Intervals (HDI)',
values=c(0.7,1.5),
breaks=c(.95,0.90),
labels=c('95%','90%'))
ggplot(plot.data, aes(x=estimate, xmin=ci_low, xmax=ci_high, y=0))+theme_minimal()+
geom_point(size=2, shape=15)+geom_linerange(aes(size=levels))+
geom_vline(xintercept = sd(data$logimport)*(-0.1), linetype = "dashed", color = "grey")+
geom_vline(xintercept = sd(data$logimport[data$Unit==1])*0.1, linetype = "dashed", color = "grey")+
scale_size_manual(name='Highest Density Intervals (HDI)',
values=c(0.7,1.5),
breaks=c(.95,0.90),
labels=c('95%','90%'))
ggplot(plot.data, aes(x=estimate, xmin=ci_low, xmax=ci_high, y=0))+theme_minimal()+
geom_point(size=2, shape=15)+geom_linerange(aes(size=levels))+
geom_vline(xintercept = sd(data$logimport)*(-0.1), linetype = "dashed", color = "grey")+
geom_vline(xintercept = sd(data$logimport)*0.1, linetype = "dashed", color = "grey")+
scale_size_manual(name='Highest Density Intervals (HDI)',
values=c(0.7,1.5),
breaks=c(.95,0.90),
labels=c('95%','90%'))
ggplot(plot.data, aes(x=estimate, xmin=ci_low, xmax=ci_high, y=0))+theme_minimal()+
geom_point(size=2, shape=15)+geom_linerange(aes(size=levels))+
geom_vline(xintercept = sd(data$logimport[data$Unit==1])*(-0.1), linetype = "dashed", color = "grey")+
geom_vline(xintercept = sd(data$logimport[data$Unit==1])*0.1, linetype = "dashed", color = "grey")+
scale_size_manual(name='Highest Density Intervals (HDI)',
values=c(0.7,1.5),
breaks=c(.95,0.90),
labels=c('95%','90%'))+
theme(axis.text.y=element_blank(),
axis.ticks.y=element_blank())
ggplot(plot.data, aes(x=estimate, xmin=ci_low, xmax=ci_high, y=0))+theme_minimal()+
geom_point(size=2, shape=15)+geom_linerange(aes(size=levels))+
geom_vline(xintercept = sd(data$logimport[data$Unit==1])*(-0.1), linetype = "dashed", color = "grey")+
geom_vline(xintercept = sd(data$logimport[data$Unit==1])*0.1, linetype = "dashed", color = "grey")+
scale_size_manual(name='Highest Density Intervals (HDI)',
values=c(0.7,1.5),
breaks=c(.95,0.90),
labels=c('95%','90%'))+
theme(axis.text.y=element_blank(),
axis.ticks.y=element_blank())+labs(x='ATT',y='')
ggplot(plot.data, aes(x=estimate, xmin=ci_low, xmax=ci_high, y=0))+theme_bw()+
geom_point(size=2, shape=15)+geom_linerange(aes(size=levels))+
geom_vline(xintercept = sd(data$logimport[data$Unit==1])*(-0.1), linetype = "dashed", color = "grey")+
geom_vline(xintercept = sd(data$logimport[data$Unit==1])*0.1, linetype = "dashed", color = "grey")+
scale_size_manual(name='Highest Density Intervals (HDI)',
values=c(0.7,1.5),
breaks=c(.95,0.90),
labels=c('95%','90%'))+
theme(axis.text.y=element_blank(),
axis.ticks.y=element_blank())+labs(x='ATT',y='')
ggplot(plot.data, aes(x=estimate, xmin=ci_low, xmax=ci_high, y=0))+theme_minimal()+
geom_point(size=2, shape=15)+geom_linerange(aes(size=levels))+
geom_vline(xintercept = sd(data$logimport[data$Unit==1])*(-0.1), linetype = "dashed", color = "grey")+
geom_vline(xintercept = sd(data$logimport[data$Unit==1])*0.1, linetype = "dashed", color = "grey")+
scale_size_manual(name='Highest Density Intervals (HDI)',
values=c(0.7,1.5),
breaks=c(.95,0.90),
labels=c('95%','90%'))+
theme(axis.text.y=element_blank(), axis.ticks.y=element_blank(),
panel.border = element_blank())+labs(x='ATT',y='')
ggplot(plot.data, aes(x=estimate, xmin=ci_low, xmax=ci_high, y=0))+theme_minimal()+
geom_point(size=2, shape=15)+geom_linerange(aes(size=levels))+
geom_vline(xintercept = sd(data$logimport[data$Unit==1])*(-0.1), linetype = "dashed", color = "grey")+
geom_vline(xintercept = sd(data$logimport[data$Unit==1])*0.1, linetype = "dashed", color = "grey")+
scale_size_manual(name='Highest Density Intervals (HDI)',
values=c(0.7,1.5),
breaks=c(.95,0.90),
labels=c('95%','90%'))+
theme(axis.text.y=element_blank(), axis.ticks.y=element_blank(),
panel.grid.major = element_blank(), panel.grid.minor = element_blank())+labs(x='ATT',y='')
ggplot(plot.data, aes(x=estimate, xmin=ci_low, xmax=ci_high, y=0))+theme_bw()+
geom_point(size=2, shape=15)+geom_linerange(aes(size=levels))+
geom_vline(xintercept = sd(data$logimport[data$Unit==1])*(-0.1), linetype = "dashed", color = "grey")+
geom_vline(xintercept = sd(data$logimport[data$Unit==1])*0.1, linetype = "dashed", color = "grey")+
scale_size_manual(name='Highest Density Intervals (HDI)',
values=c(0.7,1.5),
breaks=c(.95,0.90),
labels=c('95%','90%'))+
theme(axis.text.y=element_blank(), axis.ticks.y=element_blank(),
panel.grid.major = element_blank(), panel.grid.minor = element_blank())+labs(x='ATT',y='')
